
PROC SCRE11
set color to bg+/b
@  9,0 CLEAR TO 21,79
SET COLO TO GR+/B
@  9,  3  SAY "PPPPPP     AAAA    YY     YY  MMM     MMM  EEEEEEEE  NNN    NN  TTTTTTTT"
@ 10,  3  SAY "PP   PPP  AA  AA    YY   YY   MMMM   MMMM  EE        NNNN   NN     TT"
@ 11,  3  SAY "PP   PPP AA    AA    YY YY    MM MM MM MM  EE        NN NN  NN     TT"
@ 12,  3  SAY "PPPPPP   AAAAAAAA     YYY     MM  MMM  MM  EEEEEE    NN  NN NN     TT"
@ 13,  3  SAY "PP       AA    AA     YY      MM       MM  EE        NN   NNNN     TT"
@ 14,  3  SAY "PP       AA    AA    YY       MM       MM  EE        NN    NNN     TT"
@ 15,  3  SAY "PP       AA    AA   YY        MM       MM  EEEEEEEE  NN     NN     TT"
SET COLO TO BG+/B

PROC SCRE12
SET COLOR TO BG+/B
@  9,0 CLEAR TO 21,79
SET COLO TO GR+/B
@  9,  9  SAY "II  NNN    NN  VV      VV    OOOO    II     CCCCCC  EEEEEEEE"
@ 10,  9  SAY "II  NNNN   NN  VV      VV   OO  OO   II   CCCC      EE"
@ 11,  9  SAY "II  NN NN  NN  VV      VV  OO    OO  II  CCC        EE"
@ 12,  9  SAY "II  NN  NN NN   VV    VV   OO    OO  II  CCC        EEEEE"
@ 13,  9  SAY "II  NN   NNNN    VV  VV    OO    OO  II  CCC        EE"
@ 14,  9  SAY "II  NN    NNN     VVVV     OO   OO   II   CCCC      EE"
@ 15,  9  SAY "II  NN     NN      VV        OOOO    II     CCCCCC  EEEEEEEE"
SET COLO TO BG+/B

PROC SCRE13

SET COLOR TO BG+/B
@ 9,0 CLEAR TO 21,79
SET COLO TO GR+/B
@  9, 2  SAY "PPPPPP    RRRRRR     II  NNN    NN  TTTTTTTTTT  II  NNN    NN    GGGGGG "
@ 10, 2  SAY "PP   PPP  RR   RR    II  NNNN   NN      TT      II  NNNN   NN   GGGG    "
@ 11, 2  SAY "PP   PPP  RR   RR    II  NN NN  NN      TT      II  NN NN  NN  GGG      "
@ 12, 2  SAY "PPPPPP    RRRRRR     II  NN  NN NN      TT      II  NN  NN NN  GGG  GGGG"
@ 13, 2  SAY "PP        RRRR       II  NN   NNNN      TT      II  NN   NNNN  GGG    GG"
@ 14, 2  SAY "PP        RR RR      II  NN    NNN      TT      II  NN    NNN   GGG GGG "
@ 15, 2  SAY "PP        RR  RR     II  NN     NN      TT      II  NN     NN    GGGGG  "
SET COLO TO BG+/B

PROC SCRE14
@ 9,0 CLEAR TO 21,79
@ 13, 15  SAY "A R E  Y O U  R E A D Y  T O  P R I N T  T H E"
@ 15, 15  SAY "               I N V O I C E                  "
@ 17, 15  SAY "             Y E S  /  N O  :                 "
@ 23,  5  SAY "INVOICE  COMPLETED                               Total :  "+AEACURR
@ 22, 29  TO 24, 51    DOUBLE
@ 22, 52  TO 24, 79    DOUBLE
@ 22,  0  TO 24, 28    DOUBLE
@ 12, 13  TO 18, 63    DOUBLE
@ 11, 10  TO 19, 66    DOUBLE
@ 10,  7  TO 20, 69    DOUBLE
@  9,  4  TO 21, 72    DOUBLE


PROC SCREPR1

CLEAR
@  1, 16  SAY "S. O. S.  M E D I K A  -  2 4 / 2 4  C L I N I C"
@  2, 16  SAY "   JALAN PURI SAKTI # 10-10 - JAKARTA SELATAN"
@  4, 20  SAY " REPRINT INVOICE             INVOICE #  :"
@  6,  3  SAY "SURNAME :"
@  6, 30  SAY "FIRST NAME :"
@  6, 60  SAY "MID.INITIAL :"
@  7,  3  SAY "DATE OF BIRTH :"
@  7, 29  SAY "NATIONALITY :"
@  7, 62  SAY "SEX (M/F) :"
@  0,  0  TO  8, 79    DOUBLE
@  0, 14  TO  3, 65    DOUBLE
@  3, 17  TO  5, 39    DOUBLE
@  3, 45  TO  5, 69    DOUBLE
RETURN

PROC SCREVO1

*CLEAR
*@  1, 16  SAY "S. O. S.  M E D I K A  -  2 4 / 2 4  C L I N I C"
*@  2, 16  SAY "   JALAN PURI SAKTI # 10-10 - JAKARTA SELATAN"
@  4, 20  SAY "            INVOICE VOID     INVOICE #  :"
@  6,  3  SAY "SURNAME :"
@  6, 30  SAY "FIRST NAME :"
@  6, 60  SAY "MID.INITIAL :"
@  7,  3  SAY "DATE OF BIRTH :"
@  7, 29  SAY "NATIONALITY :"
@  7, 62  SAY "SEX (M/F) :"
@  0,  0  TO  8, 79    DOUBLE
*@  0, 14  TO  3, 65    DOUBLE
*@  3, 31  TO  5, 44    DOUBLE
*@  3, 45  TO  5, 69    DOUBLE
RETURN

PROC SCREADD1

CLEAR
@  1, 16  SAY "S. O. S.  M E D I K A  -  2 4 / 2 4  C L I N I C"
@  2, 16  SAY "   JALAN PURI SAKTI # 10-10 - JAKARTA SELATAN"
@  4, 20  SAY "ADD ITEMS INVOICE            INVOICE #  :"
@  6,  3  SAY "SURNAME :"
@  6, 30  SAY "FIRST NAME :"
@  6, 60  SAY "MID.INITIAL :"
@  7,  3  SAY "DATE OF BIRTH :"
@  7, 29  SAY "NATIONALITY :"
@  7, 62  SAY "SEX (M/F) :"
@  0,  0  TO  8, 79    DOUBLE
@  0, 14  TO  3, 65    DOUBLE
@  3, 17  TO  5, 39    DOUBLE
@  3, 45  TO  5, 69    DOUBLE
RETURN